home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / wd.zip / READ100 < prev    next >
Text File  |  1988-02-04  |  1KB  |  38 lines
  1. * this is a sample batch file called "READ100" and comes with the EVAL disk
  2. * this file will read 100 cylinders  10 times and pause between each main loop
  3.  
  4. * set program vars
  5. var3 = 100                    * max cyl
  6. var5 = 1                    * number of main loop
  7.  
  8. * set up drive parameters
  9. reset                        * reset drive
  10. heads = 4                    * max number of heads
  11. sectors = 17                    * max number of sectors
  12. cyl = 614                    * max number of cylinders
  13. idc                        * setdrive params
  14. recal                        * set on cylinder zero
  15. recal                        * set on cylinder zero
  16. b = 17                        * set block size
  17.  
  18. * start of main body
  19. print(start of main body)
  20. while(var5 < 10)                * start of ten times loop
  21.    h = 0                    * head count
  22.    s = 1                    * sector count
  23.    var8 = 0,c =  0                * cyclinder count
  24.    while(var8 < var3)                * start of cyl loop
  25.       r,inch #4                 * read cyclinder
  26.       var8 += 1                 * next cyl
  27.    ewhile                    * end of cyl loop
  28.    print(100 cylinders read pass :)        * print msg
  29.    show(var5)                    * display var5
  30.    var5 += 1
  31.    pause                    * wait for key pressed
  32. ewhile                        * end of 10 times loop
  33. print(100 cylinders read pass :)     * print msg
  34. show(var5)                 * display var5
  35. pause
  36. print(x)
  37. end                        * end of bat file
  38.